home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
89xx
/
8910a.d64
/
kalender ii
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
966b
|
21 lines
1 CLR:POKE53280,7:POKE53281,0:INPUT"[147][158][205]ONAT";M:INPUT"[202]AHR";J
2 N=INT(365.25*(J+(M<3)))+INT(30.6*(M+1-(M<3)*12))+1-2:N=N-INT(N/7)*7:RESTORE
3 DIMM$(12),M(12):FORI=1TO12:READM$(I):NEXTI:FORI=1TO12:READM(I):NEXTI
4 REM--------HAUPTROUTINE-------
5 IFJ/4=INT(J/4)THENS=1:IFM=2THENM(M)=M(M)+1
6 PRINT"[147] [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
7 FORI=1TO6:PRINT" [167] [165]"
8 PRINT" [167][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][165]"
9 NEXT:PRINT" [167] [165]"
10 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] "
11 PRINT"";M$(M);"[159]";J
12 PRINT"[150][211]O[157][157][205]O[157][157][196]I[157][157][205]I[157][157][196]O[157][157][198]R[157][157][211]A":W=1
13 X=5+N*2
14 FORI=1TO7-N:POKE211,10:POKE214,X:SYS58640:PRINTW:W=W+1:X=X+2:NEXTI
15 FORX=14TO30STEP4:FORY=5TO17STEP2:POKE211,X:POKE214,Y:SYS58640
16 IFW<=M(M)THENPRINTW:W=W+1:NEXTY,X
17 FORI=9TO34:POKE55296+I+5*40,10:NEXTI:POKE198,0:WAIT198,1:GETG$:IFG$=" "THEN1
18 DATA"[202]ANUAR","[198]EBRUAR","[155][205]AERZ","[193]PRIL","[205]AI","[129][202]UNI","[129][202]ULI","[129][193]UGUST"
19 DATA"[158][211]EPTEMBER","[158][207]KTOBER","[152][206]OVEMBER","[196]EZEMBER"
20 PRINT"[147]":DATA31,28,31,30,31,30,31,31,30,31,30,31